home *** CD-ROM | disk | FTP | other *** search
/ Zoom 2 / Zoom - Release 2 (1996)(Active Software)[!].iso / programming / amos / amossible / spritesnbobs / bobcol2.bak / bobcol2.amosSourceCode < prev    next >
Encoding:
AMOS Source Code  |  1980-05-17  |  363 b   |  21 lines
  1. Screen Open 0,320,256,16,Lowres
  2. Flash Off 
  3. Curs Off 
  4. Cls 0
  5. Load "ATTBG:JUMP.Abk"
  6. Get Sprite Palette 
  7. Double Buffer 
  8. X=150
  9. Y=110
  10. Bob 2,20,50,3
  11. Bob 3,190,50,3
  12. Bob 4,190,200,3
  13. Bob 5,20,200,2
  14. Do 
  15. If Joy(1)=1 Then Y=Y-1
  16. If Joy(1)=2 Then Y=Y+1
  17. If Joy(1)=4 Then X=X-1
  18. If Joy(1)=8 Then X=X+1
  19. If Bob Col(1,2 To 4) Then Print At(10,10);"COLLISION DETECTED"
  20. Bob 1,X,Y,1
  21. Loop